home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / NETBIOS.LIT < prev    next >
Text File  |  1990-01-13  |  3KB  |  113 lines
  1. *[NETBIOS.LIT]****************************************************************
  2. * Description: Provide support for NETBIOS multi node file locking           *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB3.BAS                                              *
  5. * Selection Option: MULTINODE = NETBIOS                                      *
  6. * Additional files: NETBOFF.LIT                                              *
  7. ******************************************************************************
  8. 22000 IF ZMsgFileLock = ZTrue THEN _
  9.          RETURN
  10.       ZMsgFileLock = ZTrue
  11.       MID$(ZLockStatus$,1,2) = "LM"
  12.       ZSubParm = 2
  13.       CALL Line25
  14.       ZLockFileName$ = ZActiveMessageFile$
  15.       IF ZNetworkType > 0 THEN GOTO 29700
  16.       RETURN
  17. 22100
  18. 22200
  19. 22300
  20. 22400
  21. 22500
  22. 25000 IF NOT ZMsgFileLock THEN _
  23.          RETURN
  24.       ZMsgFileLock = ZFalse
  25.       MID$(ZLockStatus$,1,2) = "UM"
  26.       ZSubParm = 2
  27.       CALL Line25
  28.       ZLockFileName$ = ZActiveMessageFile$
  29.       IF ZNetworkType > 0 THEN GOTO 29800
  30.       RETURN
  31. 25100
  32. 25200
  33. 25300
  34. 25400
  35. 25500
  36. 26000 IF ZUserFileLock = ZTrue THEN _
  37.          RETURN
  38.       ZUserFileLock = ZTrue
  39.       MID$(ZLockStatus$,4,2) = "LU"
  40.       ZSubParm = 2
  41.       CALL Line25
  42.       ZLockFileName$ = ZActiveUserFile$
  43.       IF ZNetworkType > 0 THEN GOTO 29720
  44.       RETURN
  45. 26100
  46. 26200
  47. 26300
  48. 26500 IF ZUserBlockLock = ZTrue THEN _
  49.          RETURN
  50.       ZUserBlockLock = ZTrue
  51.       ZBlk = (ZUserFileIndex / 4) + .26
  52.       MID$(ZLockStatus$,7,2) = "LB"
  53.       ZSubParm = 2
  54.       CALL Line25
  55.       IF ZNetworkType > 0 THEN GOTO 29730
  56.       RETURN
  57. 26600
  58. 26700
  59. 26750
  60. 26800
  61. 26900
  62. 27000 IF NOT ZUserFileLock THEN _
  63.          RETURN
  64.       ZUserFileLock = ZFalse
  65.       MID$(ZLockStatus$,4,2) = "UU"
  66.       ZSubParm = 2
  67.       CALL Line25
  68.       ZLockFileName$ = ZActiveUserFile$
  69.       IF ZNetworkType > 0 THEN GOTO 29820
  70.       RETURN
  71. 27100
  72. 27200
  73. 27300
  74. 27500 IF NOT ZUserBlockLock THEN _
  75.          RETURN
  76.       ZUserBlockLock = ZFalse
  77.       ZBlk = (ZUserFileIndex / 4) + .26
  78.       MID$(ZLockStatus$,7,2) = "UB"
  79.       ZSubParm = 2
  80.       CALL Line25
  81.       IF ZNetworkType > 0 THEN GOTO 29830
  82.       RETURN
  83. 27600
  84. 27700
  85. 27750
  86. 27800
  87. 27900
  88. 28000
  89. 28010
  90. 28100
  91. 29000 IF LockedEn$ = ZWasEN$ THEN _
  92.          RETURN
  93.       LockedEn$ = ZWasEN$
  94.       MID$(ZLockStatus$,10,2) = "LD"
  95.       ZSubParm = 2
  96.       CALL Line25
  97.       ZLockFileName$ = ZWasEN$
  98.       IF ZNetworkType > 0 THEN GOTO 29710
  99. 29010 RETURN
  100. 29100
  101. 29300
  102. 29500 IF LockedEn$ <> ZWasEN$ THEN _
  103.          RETURN
  104.       LockedEn$ = ""
  105.       MID$(ZLockStatus$,10,2) = "UD"
  106.       ZSubParm = 2
  107.       CALL Line25
  108.       ZLockFileName$ = ZWasEN$
  109.       IF ZNetworkType > 0 THEN GOTO 29810
  110. 29510 RETURN
  111. 29600
  112. 29650
  113.